1 PRINTCHR$(8):POKE53281,.:POKE53280,.
2 PRINT"[147]BEJAHFISCH BY JTR, IMPROVED BY ZEITGEIST"
3 FORG=1TO100:POKE56295,6:POKE2023,INT(RND(1)*25)+1:NEXTG
10 PRINT"[147]"
11 A$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] "
12 FORG=1TO22
13 POKE211,G-1:POKE214,1:SYS58732:PRINTA$:POKE214,1:POKE214,1:SYS58732
14 Q=1-Q
15 IFQ=1THENGOSUB100:GOTO17
16 GOSUB200
17 FORA=1TO8:PRINTTAB(G)A$(A):NEXT
18 FORA=1TO100:NEXTA,G
19 FORZ=0TO24STEP2:POKE781,Z:SYS59903:NEXT:FORZ=23TO0STEP-2:POKE781,Z:SYS59903
20 NEXT:FORG=1TO500:NEXT
21 PRINT"[147]":POKE53281,6:POKE53280,14:PRINT"[154]R3ADY.":SYS42115
100 A$(1)="      ]      "
110 A$(2)="     ]]]       JA"
120 A$(3)="]  ]]]]]]]   "
130 A$(4)=" ]]]]]]]]O]] JA"
140 A$(5)=" ]]]]]]]]]]  "
150 A$(6)="] ]]]]]]]    "
160 A$(7)="     ]]      "
170 A$(8)="     ]       "
180 RETURN
200 A$(1)="      ]         JA"
210 A$(2)="     ]]]     "
220 A$(3)="]  ]]]]]]]    JA"
230 A$(4)=" ]]]]]]]]-]] "
240 A$(5)=" ]]]]]]]]]]  "
250 A$(6)="] ]]]]]]]    "
260 A$(7)="     ]]      "
270 A$(8)="     ]       "
280 RETURN